MUSIQUE : Descriptions de procédures de lecture, 
o Procédures de description de lectures, 


Procédures de lecture de descriptions. 


Pat GREUSSAY 


|NTRODUCT ION 


|| est reconnu que les programmes de composition musicale 
produisent de la musique insignifiante. Cette carence est due, c'est 
évident, à la sous-estimation à peu près générale de la complexité 
des descriptions nécessaires à spécifier des mus iques élaborées. 

Je crois que cette carence n'est pas moins due à la sous-estima- 
tion des possibilités descriptives offertes par un certain nombre 
d'objets conceptuels utilisés en programmation des ordinateurs. 

|| est clair qu'un programme de composition devrait comporter 
une composante analytique très puissante, mais je crois que nous 
savons encore trop peu de choses sur la façon de décrire précisément nos 
analyses. Je crois également qu'il est Trop tôt pour construire de 


telles composantes. 
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|| me semble plus nécessaire à l'heure actuelle d'essayer d'exprimer 
ce que nous savons, et les musiciens sont très savants, d'une façon 
suffisamment précise et explicite, pour que ce savoir puisse ètre mis 


sous forme de programmes. 


11 s'agit donc de mettre en machine des descriptions. 

Nous pouvons lire des oeuvres musicales. Nous savons également 
qu'une oeuvre est un objet temporel. Le temps intervient dans l'exécution, 
la lecture, l'analyse et læ composition de l'oeuvre. | 

Sauf à écrire de la mus i que ou des programmes, nous ne savons pas 
très bien comment décrire des processus temporels et leurs interactions. 

C'est en ceci que la programmation est intéressante, pour les 
concepts qu'elle apporte et met en jeu dans la description de 
processus temporels. | 

Je vais essayer de prendre au pied de la lettre la comparaison 
souvent faite entre, d'une part le texte d'un programme et ce program- 
me en activité, d'autre part la partition d'une oeuvre et cette 


oeuvre en exécution ou en lecture. 


Une des raisons avancées pour rendre compte de la médiocrité 
des programmes d'analyse ou de composition, c'est qu'ils sont sans 
mémoire. Mais comment organiser la mémoire? Et encore quoi mettre en 
mémoire? Au préalable à l'analyse İl y a un m oment de lecture, 
probablement déterminant. Cette lecture suppose un savoir pré-existant. 
Je ne m'occupe pas de la manière dont ce savoir a été acquis. Plutôt 
je cherche ici à savoir comment le décrire, et à savoir comment ces 
descriptions peuvent agir. 


Je suppose que ce savoir est par lui-même effectif. 


Dans ces essais, je travaille sur de la musique tonale, 
supposée être composée. Je n'y tiens pas particulièrement. Reste que 
c'est commode : il y a une structure logique explicitable en partie, 
et je pense que Îles différents sur les notions de bases y seront les 
moindres. 
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Je peux lire de la musique. Cette lecture prend du temps. 


Lire un de ces fragments me met dans un état d'attention d'un type très 
spécial (très spécialisé), sans pour autant qu'un processus d'analyse 
ait été proprement lancé. 

Un musicien possède probablement un grand nombre de schèmes de lecture 
qu'il n'applique pas encore à ce stade, mais q'il appelle, qu'il rend 
disponible à une application éventuelle. 

Je vais essayer de préciser ces idées en décrivant des morceaux de 


programmes. Ces programmes sont écrits dans le langage CONNIVER. 
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Je lis ce fragment : 


Â. 


Supposons que je cherche à le -spécifier sous forme de relations de 


dominante entre les notes prises par couple. 


(ADD ‘(D SOL RE)) 
(ADD ‘CD DO SOL)) 


(ADD ‘CD RE LA)) 


Si j'ai un instant d'oubli, ou que je me demande ce que j'ai lu, je 
peux poser des questions : 


(PRESENT (D SOL RE)) Ce fragment comporte-t-il une relation 


SOL RE) 
CD de D entre sol et ré? 
te PS RE !X)) Ce fragment comporte-t-il la D de ré? 
€ 
Car PE Li IY SOL)) Y-a-t-il une note dans ce fragment dont 
(D D 


sol est la D? 


Questions partielles. Je peux souhaiter obtenir toutes Îles relations 
connues jusqu'ici. II s'agit d'une attitude différente, je veux savoir 
toutes les relations d'un type donné. Je définis une fonction à cet 


effet et je l'applique : 


(DE EVERY CSQ) 


CEVAL (LIST "FOR-EACH SQ 'CPRIN1 CURRENT))) 
CTERPRI)D) 


CEVERY ‘CD !X !Y)) 
(D RE LA) CD DO SOL) (D SOL RE) 
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A présent, puis-je, à partir de ce que je sais, décrire des relations 


dérivées? par exemple de sous-dominante : 


(PRESENT (SD RE SOL)) 
NIL 


Evidemment pas, si je ne sais pas ce qu'est une SD. Que sais-je? 
Y x,y D(y,x) > S5D(x,y) 
Etre en relation de SD, c'est quelquechose que je peux déduire, j'en 


fais donc une méthode 


(IF-NEEDED 1S-SD (CSD ?X ?Y) 
GAUXS (X Y) 
CFOR-EACH (CD $Y $X) CNOTE))) 


Et je pose une question : 
(PRESENT "(SD RE SOL)) 
CSD RE SOL) 
Puis toutes les questions concernant cette nouvelle relation 


CEVERY ?CSD ?X ?Y)) 
CSD LA RE) CSD SOL DO) CSD RE SOL) 


Je poursuis ma lecture 


(ADD ‘CD LA MID) 


(ADD ‘CD FA DO)) 


ÇADD "CD MI S1)) 


P. 
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Je m'interesse maintenant à un autre type de relation dérivée, moins 


simple : la notion de relative. Et je demande : 


(PRESENT CR ?X ?Y)) 


NIL 
|| faut décrire ce que je sais de cette relation. Essayons une description: 
Wd x,y Jv, Dix, v) a D(v,w) À D(w,y) D R(x,y) 
/ N 
/ D D D 
x V W y 


CIF-NEEDED IS-R CR ?X ?Y) 
$AUXS CX Y V Ww CYVAL Y)) 
CFOR-EACH (CD $X !V) 
CAND (PRESENT 'CD ,V IW)) 
(PRESENT CD ,W $Y)) 
(NOTE) 
CSETQ Y YVAL)))) 


et je me demande si je vois une occurence de relatives dans ce fragment : 


(PRESENT 'CR ?X ?Y)) 
(R FA RE) 


Puis toutes les relatives : 


‘(EVERY 'CR ?X ?Y)) 
CR FA RE) CR RE SI) CR DO LA) CR SOL MI) 
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Je pourrais également chercher les napolitaines. Mais je vais changer 
légèrement de point de vue. Au fond j'aurai pu essayer de les repérer à 
la volée. Au fur et à mesure de la lecture. Et pas en réfléchissant et 
en me posant des questions. C'est une façon d'exprimer cet état où une 
relation est préoccupante, où elle saute aux yeux, où on la guette à 
tout moment. 

J'en fais alors un démon qui, à la lecture même du fragment, sans 


que je me pose de questions, essaye de repérer les N s'il y en a. 


J x,y 


vw, v Diw, v) A R(V,xX) À SDW, yO D N(x,y) 
V R x 
! 
| 
D VON 
t 
W SC y 


CIF-ADDED GUET-N CD !X !Y) 
LAUXS CX YV W) 
CASSUMING CSD ,Y ,X) 
CFOR-EACH (CD IW IV) 
CAND CPRESENT 'CR ,V ?X)) 

(PRESENT 'CSD ,W ?Y)) 
CTTAB 25) 
(PRINT =CUE VOIS CN ,X ,Y))DDD)) 
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Et je reprend au début ma lecture du fragment. 


fm: 
LI 
+ 
4 
{ 


(ADD ‘(D SOL RE)) 
(ADD (D DO SOL)) 
(ADD ‘(D RE LA)) 
CADD ‘CD LA MID) 


DD ‘CD FA DO)) 
sé : (JE VOIS CN MI FA)) 


(ADD ‘CD MI S1)) 
i | (VE VOIS CN MI FA)) 


La lecture (le programme) a manqué la relation 

(N Si DO) 
En effet, pour la repérer il aurait fallu 

(D SOL RE) qui existe bien 

et (R RE Si) 

Mais pour que le démon reconnaisse la présence de la relation (R RE SI), 
il lui aurait fallu la relation (D MI SI) qu'il ne connait pas encòre : 
GUET-N, activé par (D MI SI) intervient, mais suppose (par le 
ASSUMING) ta relation de SD (ce qui semble naturel pour une napolitaine), 
i.e. Si - MI, 
En conservant le même démon pour les napolitaines, je dois donc 


modifier ma définition de relative : le repérage se faisant par les 
sous-dominantes : 
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u,y vs Dix v) À SD(w,v) À SD(y,w) D R(x,y) 


R 
PR ue" 
7 N 


D SD SD 


CIF-NEEDED IS-R (CR ?X ?Y) 
GAUXS CX Y V W CYVAL Y)) 
(FOR-EACH (CD $X IV) 
CAND (PRESENT '(SD IW ,V)) 
(PRESENT 'CSD $Y ,w)) 
(NOTE) 
CSETQ Y YVAL)))) 


Et je reprend une nouvelle fois ma lecture au début : 


CADD '(D SOL RE)) 
(ADD '(CD DO SOL)) 
(ADD "CD RE LA)) 
CADD "CD LA M1) 


(ADD ‘(D FA DO)) 
CJE VOIS CN MI FA)D) 


(ADD "CD MI S1)) 


(JE VOIS (N MI FA)) 
(JE VOIS (CN SI DO)) 
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Je vais maintenant changer de point de vue. Je peux supposer que ce 
savoir harmonique élémentaire n'est pas déductif, mais "procédurel", 
i.e. je peux construire des spéctalistes très bêtes mais très efficients 
pour répondre à des questions limitées : | 

(GIV relation note) me donne la note qui est dans la 
relation spécifiée avec la note- 
argument. 

(IS relation note 1 note 2) sait reconnaitre si la 
relation spécifiée tient entre 


note 1 et nofe 2. 


(DE GIV CRELATION NOTE) 
CCADR CMEMQ NOTE (GET ALLREL RELATIOND))) 


(DE IS ÇCRELATION NOTEl NOTE2) 
CEQ NOTEZ (GIV RELATION NOTE1))) 


(RPLACA 'ALLREL '( 


N CLA+ SI DO RE- N-EXIST 
SOL+ LA Sl- DO- N-EXIST 
RE+ MI FA SOL- N-EXIST 
Si+ DO+ RE MI- FA- N-EXIST 
Mi+ FA+ SOL LA- N-EXIST) 

S CRE- DO SI LA+ N-EXIST 
DO- SI- LA SOL+ N-EXIST 
SUL= FA MI RE+ N-EXIST 
FA- MI- RE DO+ Si+ N-EXIST 
LA= SOL FA+ MI+ N-EXIST) 


D CFA- DO- SOL- RE- LA- 
MI- SI- FA DO SOL 
RE LA MI SI FA+ 
DO+ SOL+ RE+ LA+ MI+ SI+ N-EXIST) 
R CSI+ RE+ FA+ LA DO MI- SOL- N-EXIST 
LA+ DO+ MI SOL SI- RE- FA- N-EXIST 
MI+ SOL+ SI RE FA LA- DO- N-EXIST) 
D) 
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Je noterai 
OB+ =df {F OB 
OB- =df V oB 
En pratique je n'utifiserai pas dans ce qui suit les doubles # oup , 
c'est la raison de la valeur par défaut N-EXIST. 


Cette idée de repérer des relations à la volée semble féconde. Je puis 
également inclure dans ce repérage une trace du moment où Il a eu lieu, 
ou plus simplement garder une trace de l'ordre dans lequel le repérage 


s'est effectué. 


Je spécifie à cet effet une macro. qui, invoquée, me produit un objet 


unique, différent de tous ceux qui l'ont précédé : 


(MACRO : (LAMBDA C) "@CSETQ 20N CADD1 20N)))) 
CSETQ 20N 0) 


Puis je définis un nouveau démon qui, à chaque fois qu'une note est lue, 


cherche s'il peut dégager des relations de dominante avec les notes 
précédemment lues. 


(IF-ADDED N-0-T (CNOT !X) 
SAUX®S (CX Y) 
CAND CABSENT 'CNOT ,X)) 
CFOR-EACH CNOT !Y) 
(COND 

CCIS ‘D x Y) (ADD ! 
CCIS 'D Y X) (ADD ! 

)))) 


PINEN 
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Je lis alors : 


CMAPC !CFA+ SOL+ DO+ LA+ FA+ DO+ RE+ LA+ DO+ RE+ FA+) 
' (LAMBDA (CX) CADD 'CNOT ,X)))) 


A ce point, je demande quelles sont les relations de dominante 


repérées. Les nombres inclus dans les items me permettent de savoir 


dans quel ordre a eu lieu ce repérage. 


(EVERY !'CIN D IX !Y)) 
(4 D SOL+ RE+) (3 D RE+ LA+) C2 D FA+ DO+) (1 D DO+ SOL+) 


`a 


Pour certaines raisons, je peux être amené à me demander si ces 


dominantes peuvent se mettre en chaîne en formant des fragments de 
cycle de quintes. 
Je définis alors un nouveau spécialiste pour répondre à cette 


question. 
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(DE CYCLE-5 (C;; N1 N2 X Y Z NX WCTX) 
CFOR-EACH CIN1 D IX !Y) 
(AND CPRESENT 'C!N2 D ,Y !Z)) 
(ADD 'CCPL ,N1 ,N2) 'WCTX))) 
CWHILE CPRESENT '(CCPL !N1 IN2) IWCTX) 
(WHILE (PRESENT 'CCPL INX ,N1) "WCTX) 
(SETQ N1 NX)) 
(PRESENT 'C,N1 D IX !Y)) 
(PRIN1 X) 
(PRINIL Y) 
(WHILE CPRESENT PL N1 !N2) 'WCTX) 
(REMOVE '’(CCPL , N1 N2) 'WCTX) 
CPRESENT "C,N2 D !X tY)) 
(PRINL Y) 
CSETQ N1 N2)) 
(PRINI1 '/)) 
(TERPRI)) 


Voici comment l'objet fonctionne. 

Si j'entre par exemple : 

(NOT DO) 

(NOT M!) 

(NOT RE) 

(NOT SI) 

(NOT SOL) 

(NOT FA) 
la méthode N-0-T crée les items 
(1 D Si FA+) (2 D MI Si) (3 D SOL RE) 
(4 D DO SOL) (5 D FA DO) 
chacun des items créés est de la forme 
(n D notei note2) 

Le spécialiste CYCLE-5 crée un contexte de travail WCTX. Dans ce contexte 


spécialisé, il va ranger des items qu'il crée, de la forme : (CPL ni n2) 


OS 


ou nt et n2 sont les n°” de dominante, tels que note2 de nl est identique 


` 


à notel de n2. 

Dans notre exemple, on aura dans WCTX 
(CPL 2 1) 

(CPL 5 4) 

(CPL 4 3) 
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Puis il recherche les premiers éléments de chaque chaîne de CPL, 
imprime la chaîne, élimine la chaîne, et recommence tant qu'il reste des 
CPL dans WCTX. Ce qui donnera dans notre exemple 


(CYCLE-5) 
FA DO SOL RE / MI SI FA+ / 


Si j'appltique l'objet au fragment de Debussy, j'obtiens : 


(CYCLE=5) 
FA+ DO+ SOL+ RE+ LA+ / 


à partir des objets dans le contexte 


RE+)) 
xıtem (8 D SOLt 
Cx ITEM t7 D RE+ LA+)? 


FA+ SOL + DO + 
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Changeons encore une fois légèrement de point de vue. 


Je suppose que ma lecture a affaire à un ensemble de notes, ensemble 


ordonné par fa relation APRES = A 


DOI RE SOLI MII DO2 SOL2 LA MI2 


et constitué dans le contexte comme par exemple 
(A SOL2 DO2) 
(A SOLT RE) 
(A LA SOL2) 
(A RE D01) 
(A MI2 LA) 
(A MIT SOL) 
(P DO1) 

i (A DO2 MI) 
DOl est premier de la chaîne, ou segment. 


Je peux construire un spécialiste capable de me livrer tous les segments 
présents dans le contexte. 


(DE SEGMENTS C;; X Y) 
CFOR=EACH (CP !X) 
CPRIN1 X) 
CWHILE CPRESENT 'CA !Y ,x)) 


CSETQ X CPRIN1 Y))) 
j CTERPRI))) 


CSEGMENTS) 
DOl RE SOLI MI1 DOZ SOL2 LA MI? 
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Pour certaines raisons, je peux envisager de segmenter le fragment fu, 


par exemple 


} 


- obtenant ainsi le nouveau contexte 


(P DO1) (P MIT) 

(A RE DO1) (A DO2 MI1) 
(A SOLI RE) (A SOL2 DO2) 
(A LA SOLI) 

(A MI2 LA) 


Pour conserver la cohérence de mes objets ordonnés, je devrai prendre 
certaines précautions. Ces précautions seront décrites par un ensemble 
de démons spécialistes. Ces démons s'activeront sur présentation ou 
élimination de l'item. 


(A notel note2) 
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C(IF-ADDED -1ER CA !X !Y) 
SAUXS (CX) 
(AND CPRESENT !'CP ,X)) 
(REMOVE CP ,X)))9) 


Si X était premier, il ne doit plus l'être à présent. 


(IF-ADDED X-SUC-QQ1 CA IX !Y) 
LAUX% CX Z) 
CAND CPRESENT 'CA ,X !Z)) 
CREMOVE 'CA ,X ,Z)))) 


Si X était le successeur d'un Z, il ne doit plus l'être. 


CIF-ADDED QQ1-SUC-Y CA !X !Y) 
SAUX% CY Z) 
CAND (PRESENT "CA !Z ,Y)) 
(REMOVE 'CA ,Z ,Y)))) 


Si Y avait un successeur Z, ce ne doit plus être le cas 
CIF-REMOVED +1ER (CA !X IY 


ZAUX®S (CX) | 
ÇADD "CP ,X2)) 


Si X n'est plus le successeur de Y, X doit devenir premier. 


— 17 - 


Au moins conceptuellement ces démons peuvent être activés en même 


temps. 
(A notel note2) active ICR 
X=SUC=QQ1 
QQ1-SUC-Y 
et -1ER 
X- SUC-QQ1 acti vent +1ER 
QQ1-SUC-Y 
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C(SEGMENTS) 1 ————— 
DOl RE SOL MIl DO2 SOL2 LA MI2 EE E 
ÇADD "CA SOLI DO1)) 

CSEGMENTS) E 

RE ESETE. - SOONE 2o IF = 
DO1 SOI MI1 DO2 SOL2 LA MI2 Znen S — 
(ADD ‘CA MI2 RE)D) 

CSEGMENTS) ne — 
RE M12 I  — 
DO1 SOLI1 MI1 DO2 SOL2 LA OO 


(ADD ÇA SOL2 SOL1)) 


(SEGMENTS) 

MIl DO2 

RE MI2 

DOl SOLI SOL2 LA 


(ADD ‘CA RE DO2)) 


(SEGMENTS) = 


MI1 DO2 RE MI2 | — E 
pOl SOLI1 SOL2 LA 


It est clair que je ne dois pas essayer de former ici une chaîne 
circulaire, la chafne perdant alors son premier ne serait plus repérable 
par le spécialiste SEGMENTS. 
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Les lectures envisagées jusqu'ici étaient toutes des lectures 


n LA 


à l'instant" ou bien "à l'instant et en arrière". Je m'interesse 
ici à des lectures "en avant". Dans certains cas, nous sommes dans 
des situations Où nous avons des raisons de penser qu'un objet bien 
spécifié devrait arriver, quitte à être déçus s'if n'arrive pas, où 
encore à oublier simplement qu'on l'avait prévu. Je voudrai bien 
exprimer précisèment le fait que parfois, je poste des guetteurs 


dans l'avenir de ma lecture. 


Voici un exemple d'une telle situation. 


J'y recherche Îles relatives : 


R 
fa do sol re | la 


et je constate que sol n'a pas de relative (et n'arrive qu'une fois). 


J'attend ou je guette le si dans ce qui suit 


si fa = do sol re la 


http://www.artinfo-musinfo.org Muslnfo Artinfo # 19, 1974, page 20 / 37 


— 20 -= 


Ce moment de la lecture, je pourrai I'exprimer ainsi 


CFOR-EACH CNOT !X) Sa | 
(CEXIST CNOT !Y) repérage des relatives 
(COND | 
(CIS 'R Y X) 
(ADD 'CR ,Y ,X))) 
CCFAIL))))) 


(EVERY '(CR IX IY)) 
(R LA+ DO+) CR MI+ SOL+) 


Puis, pour chacune des notes X présentes, si elle n'est pas inscrite 
dans une relation de relative, je poste un guetteur qui attend son 


arrivée dans le futur de la lecture. Une sorte de chat endormi, à la 


a 


moustache sensible à la note qui est la relative de X. 


CFOR-EACH CNOT IX) 
COR CPRESENT 'CR !Y ,X)) 
CPRESENT 'CR ,X !Y)) 
(GUETTER CGIV 'R X)))) 


GUETTER est une fonction assez complexe qui poste le guetteur. 


(DE GUETTER (X Y Z) 
CPRINT =(JE GUETTE ,X)) 
(PUT X Z RAISON) 


CADD (EVAL 
=CIF-ADDED ,X CNOT ,X) 
LAUX% C) 
CRIN Q='CENFIN ,X ARRIVE)) 
Pd 


(REMOVE !,X) 
CRPLACD !,X) )))) 
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A son appel, guetter aura un argument obligatoire X, la note 
dont on guettera l'occurence. L'argument Z facultatif sera mis dans 
la p-liste de X sous l'indicateur RAISON, on pourra y placer la 
raison pour laquelle la note X était guettée. 

Puis GUETTER construit un démon de même nom que X, l'inclut dans le 
contexte, où il attend en silence l'arrivée de l'item (NOT note- 
guettée). Si la note arrive, le démon se réveille, indique qu'il 

est en activation par la note d'éveil, accomplit T'action Y spécifiée 
en argument facultatif de GUETTER, puis ceci fait, il s'élimine, 


ayant joué son rôle, du contexte courant, et se détruit physiquement. 


Dans notre exemple, le démon synthétisé sera, par l'appel de 
(GUETTER (GIV TR  X)) avec X = SOL+ 


(IF-ADDED SI CNOT SI) 


$AUXS NIL 
 CPRINT (QUOTE CENFIN SI ARRIVE))) 
NIL 


CREMOVE (QUOTE S1)) 
CRPLACD CQUOTE S1))) 


qui attend l'arrivée de la note (NOT Si). Si elle arrive (et elle 
arrive en effet), le démon signalera 
"ENFIN SI ARRIVE" puis se détruira. 


Cependant, quand le démon SI a été posté, je pensais spécialement aux 
relatives. Or ce guetteur peut être activé alors que je n'y pense plus 
du tout. Je voudrai donc garder une trace de l'état d'esprit dans 


lequel j'étais lorsque j'ai ordonné la constitution du guetteur par 
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(GUETTER (GIV 'R X) 
(ADD IR ,X @GIV 'R X)))) 
ce qui me donnera le démon o 
© (IF-ADDED SI (NOT SI) 
AUX NIL 
(PRINT '(ENFIN SI ARRIVE)) 
(ADD '(R SOL+ S1)) | 
(REMOVE 1S1) 
(RPLACD 'S1)) 
qui, lorsque SI arrivera, ajoutera au contexté l'item 
(R SOL+ S1) 


Donc, GUETTER me permet également de tancer des actions à retardement. 
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Voyons d'autres raisons de mettre en place des guetteurs. 


Toujours avec le même exemple. 


C'est le n° [7] du premier Nocturne de Debussy. 


| 


S armaan 


J Í 


Yii 


NNG 


l | 


| 


lil 
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L'arrivée du SI # , sensible de DH, pourrait me faire utiliser 
une règie de lecture que voici : 


"Stil existe une sensible de X, guetter la napolitaine 
de X. 


S'il existe une napolitaine de X, attendre la sensible 
de X." | 


Or j'ai repéré SI sensible de DO. Je ne suis pas trop surpris 


quand arrive, quelques mesures plus tard ` 


p tres espresuf et É 


Prés soutu 


Aa 
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1.8. le RE h napolitaine de DOH. 


Restons dans Nuages, à la mesure | cette fois. 


L'arrivée du sib , napolitaine de LA me sers, de mettre en -Jeu 


le démon que voici 


CIF-ADDED N-A-P (N !X !Y) 
GAUXS (X Y Z POLEL POLE2 RELATION) 
CSETQ Z CGIV 'sS x)) 
(GUETTER Z 
=(PRINT (GET ',Z 'RAISON)) 
=(,X AYANT SA NAP JE GUETTE SA SENS)) 
(CEXIST (POLE POLE 1) 
COR CPRESENT 'C!RELATION ,POLEL ,X)) 
_ CFAIL)) 
C(FOR-EACH (POLE !POLE2) 
(COND 
CCNEQ POLEL POLE2) 
(SETQ Z CGIV RELATION POLE2)) 
(GUETTER CGIV 'N Z)) 
(GUETTER CGIV 'S Z)))))))) 
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L'idée c'est : si j'ajoute au contexte la relation 
(N x y) | 

. guetter la sensible de x, i.e. créer un démon qui, 
s'il repère la sensible de x indique qu'il la guettait parce que x 
avait sa napolitaine. | | | 

. s'il existe (CEXIST) un pôle POLET avec une 
RELATION avec x, pour tous Îles autres pôles PÔLE2 , guetter la 
sensible et la napolitaine de la note qui a avec POLE2 la même 


relation que x a avec POLE). 


Dans notre exemple, avec le contexte 
(POLE -512 
(POLE RE) 
(D RE LA) 


j'obtiendrai, si j'ajoute au contexte la relation 


(ADD CN LA SI-)) 
(UE GUETTE SOL+) 
(JE GUETTE SOL) 
(JE GUETTE MI+) 


En effét l'activateur est (N LA SH, or on a (D RE LA) et je sais 
que (POLE RE). Par ailleurs le démon N-A-P sait qué (POLE SI), 


que la D de Si est FA, et que la N de FA est SOL et que la S de 
FA# est MIY. DEN 


Il met en place, par conséquent des guetteurs qui attendent SOL et 


MI#. 
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Et le démon N-A-P n'a pas tort : 


acti vateur 


des guetteurs de 
et j'obtiendrai donc bientôt 


CADD 'CNOT SOL+)) 
CENFIN SOL+ ARRIVE) 
(LA AYANT SA NAP JE GUETTE SA SENS) 


(ADD NOT SOL)) 
CENFIN SOL ARRIVE) 


CADD 'CNOT MI+)) 
CENFIN MI+ ARRIVE) 


Lorsque le guetteur posté, par exemple (NOT SOL) se réveille 
et me signale | | | 
(ENFIN SOL ARRIVE) 
je puis souhaiter, ayant complètement oublié les raisons pour 
lesquelles je voulais que le SOL soit guetté, lui demander pourquoi 


le fait que le SOL arrive est interessant. 
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A 


J'utiliserai à cet effet le spécialiste 
(DE LIRE-RAISONS CNOTE ;; L) 
CESCAPE EXIT 


(SETQ L CGET NOTE "RAISON)) 
CWHILE L 


COR CREAD) (EXIT)) 
CPRINT CNEXTL L))) 
(PRINT 'VOILA))). 


et je modifierai ainsi le démon N-A-P 


CIF-ADDED N-A-P (N IX !Y) 


$SAUXS (X Y Z POLE1 POLE? cibles à 
CSETQ Z CGIV 'S X)) 
CGUETTER Zz 


=(PRINT (GET es ERAO 
=(,X AYANT SA NAP 


JE GUETTE SA SE 
CCEXIST CPOLE !POLEL) e 
COR (PRESENT 'CIRELATION ,POLEL ,X)) 
CFAIL)) 
CFOR-EACH (POLE !POLE2) 
CCOND 


CCNEQ POLE POLE2) T ee ie, aT 
CSETQ Z- CGIV RELATION: POLE23) ` | 
CGUETTER ÇCGIV 'N 2) 

SCLIRE-RAISONS *@CGIV. 'N.Z)) 
=CCGCGIV 'N Z) NAP DE ,Z). 


C,Z ,RELATION DE! POLE 2) 
C, POLE2 POLE) 
(,POLEL POLE) 


CSX , RELATION DE. :POLE1) 
C,Y NAP DE-,X))). 


CGUETTER CGIV !S Zz))))))) 


Je (ou un démon, ou une autre partie d'un programme) peux 


alors demander pourquoi le guetteur SOL se fait ainsi remarquer. Dans 


un sens limité le guetteur connaît les raisons an peut y avoir. 
accès) pour lesquelles il a été posté. | 
Je note par "—>" les questions posées au guetteur 


et par "é—" ses réponses. 
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CENFIN SOL ARRIVE) 


POURQUOI 
(SOL NAP DE FA+) 


ET-ALORS 
CFA+ D DE S1) 


m 

[~ 

——> 

É— 

ea ET-ALORS 
€-— (SI POLE) 
—>  ET-ALORS 
€—— (RE POLE) 
—> 
dre 


ET-ALORS 
(LA D DE RE) 


= —> ET-PUIS-APRES 
é— (SI- NAP DE LA) 


é— VOILA 


et après avoir livré ses raisons, le guetteur se retire. 
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CONCLUS TON 


Lire de la musique est une activité. Nous avons, face à un 
texte, un certain nombre de notions, certaines assez précises, d'autres 
tout à fait floues. Nous avons aussi certains schèmes d'explication 
plutôt rigides, mais également des schèmes de schèmes, des sortes de 
matrices qui nous permettent quelquefois, devant l'échec de nos 
procédures d'explication, d'en former de nouvelles, peut être plus 
appropriées au texte musical particulier dont il s'agit. Je crois 
que nous disposons à présent des outils nécessaires pour décrire 
ces notions, sans trop les réduire, au moyen d'ordinateurs. L'ordi- 
nateur est ici le moyen d'en attester l'effectivité. Toutefois je 
ne pense pas que les procédures construttes dynamiquement, paramè- 
trées par le texte au cours de sa tecture, soient réel lement de 
nouvelles procédures. Je pense plutôt qu'il s'agit de corrections, 
d'une mise au point continue de LIRSouree Je rarEentes face à 


un nouveau cas particulier. 
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